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I .  INTRODUCTION 


Small  laboratory  devices  such  as  vented  chambers^^or  blowout  guns 
have  a  long  history  in  understanding  gun  barrel  wear.  Compared  with 
large-caliber  gun  tests,  such  devices  need  less  propellant,  need  less 
room  for  safe  firing,  and  have  inserts  which  can  be  removed  for  post¬ 
firing  analysis.  An  unanswered  question  is  how  to  relate  wear  in  the 
devices  with  wear  in  large-caliber  guns.  A  recent  JANNAF  workshop  con¬ 
cluded  that  laboratory  devices  cannot  evaluate  wear-reducing  additives, 2 
and  that  test  devices  in  three  laboratories  have  given  contradictory 
results  with  the  same  propellants. ^ >4 

This  report  attempts  to  relate  erosivity  from  propellants  in  the 
BRL  37mm  blowout  gun  to  wear  expected  in  large  caliber  guns.  Empirical 
formulas5,6  presume  the  wear  is  exponentially  proportional  to  the  maxi¬ 
mum  bore  surface  temperature.  Bore  surface  temperatures  in  the  empira- 
cal  models  are  estimated  with  interior  ballistic  parameters  such  as 
charge  weight,  flame  temperature,  gun  diameter,  and  peak  pressure. 


2 

"Hypervetoaity  Guns  and  the  Control  of  Gun  Erosion, "  Summary  Teahnioal  ■ 
Report  of  Division  1,  NDRC,  Votime  1,  Washington,  DC  1946. 

2 

J.A.  Lanhon  and  J.R.  Ward,  "Workshop  Report  on  Wear-Reducing  Additives 
and  Their  Performance  in  Guns, "Proceedings  of  the  17th  JANNAF  Combustion 
Meeting,  CPIA  Publication  329,  November  1980. 

3 

A.J.  Bracuti,  L.  Bottei,  J.A.  Lannon,  and  L.H.  Caveny,  "Evaluation  of 
Propellant  Erosivity  with  Vented  Chamber  Apparatus, "  1980  JANNAF  Pro¬ 
pulsion  Meeting,  CPIA  Publication,  315,  March  1980. 

^J.R.  Ward,  R.W.  Geene,  A.  Niiler,  A.  Rye,  and  B.B.  Grollman,  "Blowout 
Gun  Erosivity  Experiments  with  Double-Base,  Triple-Base,  and  Nitramine 
Propellants,  1980  JANNAF  Combustion  Meeting  CPIA  Publication,  315, 

March  1980. 

^J.M.  Frankie  and  L.R.  Kruse,  "A  Method  for  Estimating  the  Service  Life 

of  a  Gun  or  Howitzer,"  BRL  Memorandum  Report  No.  1852,  June  1967. 
g  (AD  #818348)  ^ 

C.S.  Smith  and  J.S.  O'Brasky,  "A  Procedure  for  Gun  Barrel  Life  Estima¬ 
tion,  "  Proceedings  of  the  Tri-Service  Gun  Tube  Wear  and  Erosion  Sympo¬ 
sium,  ADPA,  Dover,  NJ,  March  1977. 

7 

J.  Comer,  Theory  of  the  Interior  Ballistics  of  Guns,  John  Wiley  S  Sons, 
Inc.,  NY,  1950. 

Q 

L.W.  Nordheim,  H.  Soodak,  and  G.  Nordheim,  "Thermal  Effects  of  Propellant 
Gases  in  Erosion  Vents  and  Guns, "  NDRC  Armor  and  Ordnance  Report  No. 
A-262,  March  1944. 
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This  report  uses  Nordheim's  scheme  to  compute  the  peak  surface 
temperatures  during  wear  tests  of  five  propellants. 9  if  the  relative 
wear  of  the  propellants  in  the  blowout  gun  is  the  same  as  in  large  guns, 
then  a  plot  of  natural  logarithm  of  wear  v^  peak  temperature  should  be 
linear,  with  the  slope  identical  to  that  in  guns.  Wear  tests  ip  Reference 
9  incorporated  Niiler's  radioactive  technique^^  to  correlate  mass  loss  and 
diameter  change. 

II.  INPUT  PARAMETERS  AND  COMPUTER  CODES 

Three  computer  codes  were  used  to  perform  the  calculations  dis¬ 
cussed  in  the  report.  The  first  program,  IB  3/70,  computes  interior 
ballistics  data  for  guns.  The  second  program,  NOZZLE,  computes  interior 
ballistic  data  for  a  blowout  gun  with  an  erosion  nozzle.  The  third  pro¬ 
gram,  NEWNSN,  computes  heat  transfer  using  files  of  IB  3/70  and  NOZZLE. 
Listings  for  each  program  are  contained  in  the  Appendix. 

The  assumed  heat  input,  as  described  fully  in  Reference  8,  was 
taken  to  be 


Q  =  ^sXCppUAT  ,  (1) 

2 

where  q  =  heat  flux,  J/m  -s, 

X  =  friction  factor, 

C  =  specific  heat,  J/kg*K, 

3 

p  =  propellant  gas  density,  kg/m  ^ 

U  =  gas  velocity,  m/s,  and 

AT  =  temperature  difference  between  propellant  gas  and  wall,  K. 

Following  Nordheim's  method,  a  friction  factor  of  1/253  was  used 
for  the  17.3  mm  diameter  nozzle. 

Computations  were  done  for  the  five  propellants  evaluated  in  Re¬ 
ference  9.  The  compositions  are  listed  in  Tables  1  and  2. 


^  R.W.  Geene,  J.R.  Ward,  T.L.  Brosseau,  A.  Miter,  R.  Birhnire,  J.J. 
Rooohio,  "Erosivity  of  a  Mtramtne  Propellant,  "  BRL  Teohnioal  Report 
No,  02094,  August  1978.  (AD  #A060590) 

^^S.E.  Caldwell  and  A.  Niiler,  "The  Measurement  of  Wear  from  Steel  Using 
the  Radioactive  ^°Co,"  BRL  Report  No.  1923,  September  1976.  (AD  #A030262) 
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TABLE  1.  COMPOSITIONS  AND  GRAIN  DIMENSIONS  OF  M30  AND  HFP  PROPELLANTS 


M30  HFP 

PPL-A-6372  PPL-A-6380 


Nitrocellulose  (12.6%N) 

28.0% 

29.3% 

Nitroglycerin 

22.5 

22.7 

Nitroguanidine 

47.7 

5.0 

RDX 

36.5 

Dioctylphthalate 

5.0 

Ethyl  Centralite 

1.5 

1.5 

Cryolite 

0.3 

Total  Volatiles  (Residual) 

0.2 

0.3 

Grain  Length,  mm 

7.78 

10.58 

Grain  Diameter,  mm 

1.59 

2.37 

Grain  Perf.  Diameter,  mm 

0.46 

0.77 

Grain  Web,  mm 

0.56 

0.80 

Grain  Geometry 

SP 

SP 

TABLE  2.  COMPOSITIONS  AND 

GRAIN  DIMENSIONS 

OF  M5,  M8,  AND  Ml 

PROPELLANTS 

m 

Nitrocellulose  C13.25%N) 

81.95% 

52.15% 

85.00% 

Nitroglycerin 

15.00 

43.00 

Ethyl  Centralite 

0.60 

0.60 

Barium  Nitrate 

1.40 

Potassium  Nitrate 

0.75 

1.25 

Diethylphtalate 

3.00 

Dinitrotoluene 

10.00 

Dibutylphthalate 

5.00 

Diphenylamine,  Added 

1.00 

Ethyl  Alcohol,  Residual 

2.30 

0.40 

0.75 

Water,  Residual 

0.70 

0.50 

Graphite 

0.30 

Grain  Length,  mm 

10.58 

25.4 

8.26 

Grain  Diameter,  mm 

3.92 

12.7 

3.68 

Grain  Perf.  Diameter,  mm 

0.41 

0.37 

Grain  Web,  mm 

0.69 

0.56 

0.64 

Grain  Geometry 

7  Perf 

Strip 

7  Perf 
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Propellant  parameters  required  for  the  computations  are  listed  in 
Table  3. 

The  term,  B/W,  is  used  to  relate  burning  rate,  r,  with  chamber  pressure,  P, 
and  propellant  web,  W,  by 

r  =  (P  +  44.8)  (|)  •  W  .  (2) 

Propellant  webs  are  listed  in  Tables  1  and  2. 

3 

For  the  blowout  gun,  chamber  volume  and  nozzle  area  were  315  cm 
and  2.36  cm2,  respectively. 


III.  RESULTS  AND  DISCUSSION 

The  experimental  results  from  Reference  9  are  listed  in  Table  4. 

Table  5  gives  calculated  time  to  maximum  pressure,  peak  nozzle  sur¬ 
face  temperature,  heat  input,  and  time  from  nozzle  rupture  to  peak  nozzle 
surface  temperature. 

A  linear  least  squares  fit  tested  the  exponential  dependence  of  wear 
with  peak  surface  temperature. 

£n  (w)  =  a  +  bT  , 


where  w  =  wear,  y/shot, 

T  =  peak  bore  surface  temperature,  K,  and 
a,b  =  constants. 

The  best  fit  values  of  a  and  b  were  -9.7  ±  ^  and  0.0094  ±  0.002, 
respectively,  with  error  representing  one  standard  deviation.  Table  6 
compares  experimental  wear  and  wear  computed  with  Eq.  (3).  Eq.  (3) 
clearly  underestimates  wear  for  Ml  with  a  peak  temperature  of  773  K. 
Frankle-Kruse  also  noted  their  expression  was  invalid  below  900  K; 
Smith-0' Brasky  report  a  similar  threshold  of  750  K. 

A  check  on  how  wear  varies  with  peak  bore  surface  temperatures  in 
guns  can  be  made  with  bore  surface  temperature  computations  by  Vqssallo 
and  coworkers  at  Calspan  Corporation!!  in  the  M185  cannon.  The  Calspqn 
workers  compute  peak  bore  surface  temperatures  from  measured  total  heat 
input. !2  Recent  work  in  a  shock-tube  gun  with  different  metals  showed 
temperature  calculations  starting  with  measured  total  heat  input  could 
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TABLE  3.  PROPELLANT  PARAMETERS* 
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TABLE  4.  EXPERIMENTAL  DATA  FROM  BLOWOUT  GUN  EXPERIMENTS 
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TABLE  5.  COMPUTED  HEAT  TRANSFER  RESULTS 
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TABLE  6 


COMPARISON  BETWEEN  EXPERIMENTAL  WEAR  AND  WEAR  COMPUTED 
WITH  EQUATION  (3) 


Propellant  Peak  Temp.,  K  Wear  exp't,  y/Shot  Wear  Cal*d,  n/Shot 


Ml 

Ml 


773 

875 


0.2 

0.1 


0,0005 

0.2 


M30 

966 

0.5 

M30 

1,130 

0.6 

M30 

1,228 

3.8 

0.5 

2.5 

6.2 


HFP 

968 

0.5 

HFP 

1,150 

1.1 

HFP 

1,235 

6.8 

0.5 

3.0 

6.6 


M5 

982 

0.8 

M5 

1,155 

4.1 

M5 

1,250 

18.5 

0.6 

3.1 

8.3 


M8 

1,107 

M8 

1,210 

MS 

1,407 

2.8 

9.6 

48.6 


2.0 

5.0 

32.1 
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predict  correct:^/  whether  the  melting  point  of  the  metal  was  exceeded. 
Starting  conditions  in  the  shock-tube  gun  were  varied  to  produce  tempera¬ 
ture  bracketing  the  metals'  melting  temperatures. 

Table  7  shows  bore  surface  temperatures  computed  for  three  155mm 
propelling  charges  which  have  no  wear-reducing  additive.  Wear  data  is 
available  for  the  Ml 19  and  the  XM201E2  charges, >^5  Wear  sensor  data  in 
the  M185  cannon  showed  the  XM208  minus  its  additiye  was  five  times  as  ero¬ 
sive  as  the  XM201E2.  Wear  of  the  XM208  was  presumed  to  he  five  times 
greater  than  the  measured  wear  of  the  XM201E2  charge.  A  least-squares 
fit  of  the  three  points  in  Table  8  to  Eq.  (3)  produced  values  of  a  and  b 
of  -7.4  and  0.0076K“^,  respectively. 

TABLE  7.  BORE  SURFACE  TEMPERATURES  AND  WEAR  FQR  155mm  CHARGES  WITHOUT 
ADDITIVE 


Charge  Peak  Temp,  K  Wear,  n/shot  Ref. 


M119 

961 

0,9 

15 

XM201E2 

1,100 

2.6 

16 

XM208  (no  additive) 

1,306 

12.5 

12 

Figure  1  plots  wear  y£  peak  bore  temperature  for  the  nozzle  and  the 
155mm  gun.  Figure  1  suggests  relative  wear  among  propellants  will  be 
overestimated  compared  with  wear  in  guns  by  ten  percent.  Nonetheless, 
the  agreement  seems  close  enough  to  suggest  relative  propellant  erosivity 
can  be  inferred  in  nojfzles. 


11 

F.A.  VassallOj  "An  Evaluation  of  Heat  Tvansfe^  and  Erosion  in  the  155 
mm  M185  Cannon^"  Calspan  Technical  Report  No.  July  1976. 

12 

F.A.  Vassallo,  "Mathematical  Models  and  Computer  Routines  Used  in  Ev¬ 
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PEAK  BQRE  SURFACE  TEMP.  K. 

Figure  1 .  Wear  Peak  Bore  Surface  Temperature 
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Some  other  observations  from  the  calculations  of  bore  surface  tem¬ 
peratures  can  be  made  from  comparisons  of  bore  surface  temperature  vs. 
time  for  the  37mm  blowout  gun  and  a  3"/70  Naval  gun  depicted  in  Figures 
2-4.  Table  8  summarizes  pertinent  heat  transfer  data  for  the  three 
figures. 


TABLE  8.  CALCULATED  HEAT  INPUT  AND  SURFACE  TEMPERATURES  FOR  3"/70 
AND  37mm  BLOWOUT  GUNS 


Gun 

Nozzle 
Diameter , mm 

1/X 

Propellant 

Charge 

MasSjg 

Flame 

Temp,K 

Surface 
Temp , K 

Heat  In-2 
put, J/mm 

37min 

17.3 

253 

HFP 

89.8 

3,255 

1,235 

0.78 

3'V70 

- 

280 

Picrite 

3991. 

2,065 

1,224 

1.13 

37inm 

13.3 

239 

Ml 

159 

2,417 

1,254 

1.21 

The  first  point  of  interest  is  the  short  heating  time  of  the  blow¬ 
out  gun  in  Figure  2  v£,  the  3’770  Naval  gun.  As  a  result  of  the  longer 
heating  time,  the  3"/70  gun  reaches  the  same  peak  bore  surface  tempera¬ 
ture  with  a  much  cooler  propellant.  The  effect  of  the  longer  heating 
time  is  also  reflected  in  the  larger  total  heat  input  for  the  gun.  The 
figures  also  point  out  why  propellants  with  flame  temperatures  near 
3800K  would  be  needed  to  get  the  wear/shot  characteristic  of  tank  guns 
with  the  17.3  mm  nozzle.  Figure  4  shows  that  Ml  propellant  produces  an 
equivalent  peak  temperature  as  HFP  if  charge  mass  is  increased  and  nozzle 
diameter  is  decreased.  A  new  chamber  would  be  required  in  the  37mm  gun 
to  be  able  to  load  160g  of  propellant. 


IV.  CONCLUSIONS 

1.  Bore  surface  temperature  time  were  computed  for  17.3  mm  diameter 
nozzles  in  the  BRL  37mm  blowout  gun  in  order  to  test  dependence  of  wear 
vs.  peak  bore  surface  temperature. 

2.  The  natural  logarithm  of  wear  from  the  nozzle  was  shown  to  be  linearly 
dependent  on  peak  bore  surface  temperature  which  agrees  with  empirical 
wear  models  and  with  calculations  of  peak  bore  surface  temperatures  by 
Calspan  Corp.  for  the  155mm  M185  cannon.  It  was  shown  the  slope  is  10% 
steeper  in  the  nozzle  suggesting  relative  propellant  erosivity  with  the 
17.3mm  diameter  nozzle  may  be  exaggerated  slightly  compared  to  large 
caliber  guns. 
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Figure  2.  Temperature  vs.  Time  in  37mni  Blowout  Gun  (17.3itn« 
Diameter  Nozzle-HFP  Propellant). 
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TEMPERRTURE  (DE'G.  K ) 
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Figure  3.  Temperature  Time  in  3"/70  Gun  With  Picrite  Propellant. 
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TEMPERRTURE  (DEG.  K) 
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Figure  4,  Temperature  vs.  Time  in  37mm  Blowout  Gun  (13,3mm 
Diameter  Nozzte-Ml  Propellant),. 
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APPENPIX 


COMPUTER  CODRS 


COMPUTER  CODES 


The  first  program,  "IB3/70",  computes  interior  ballistics  data 
for  guns. 

The  second  program,  "NOZZLE",  computes  interior  ballistics  data 
for  a  blowout  gun  with  an  erosion  nozzle. 

The  third  program,  "newnsn"  computes  heat  transfer  and  conduction 
data.  The  program  "newnsn"  uses  information  stored  on  files  "DATA" 
and  "DATAl"  by  "IB3/70"  or  "NOZZLE". 
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"IB3/70" 


Input  data  begins  in  line  2860.  Data  to  be  stored  in  each  line 


is  as  follows: 

Line 

Data 

2860 

Projectile  weight  (lbs) 

2870 

Projectile  travel  (inches),  chamber  volume  (cu.in.) 

2880 

Pidduck-Kent  constant,  integration  step  size  (sec) 

2890 

Estimated  projectile  velocity  (ft/sec),  bore  diameter (in) , 
bore  area  (sq.in.) 

2900 

Shot  start  pressure  (psi) 

2910 

Igniter  weight  (pounds) 

2920 

Igniter  impetus  (in  Ibf/lbjj^),  ratio  of  specific  heats, 
flame  temperature  (°K),  covolume  (cu.in. /lb) 

2930 

Propellant  weight  (lbs) 

2940 

Propellant  force  (  in  Ibf/lbm) ,  ratio  of  specific  heats, 
flame  temperature  (°K),  covolume  (cu.in. /lb),  density (Ib/cu. in 

2950 

Propellant  grain  diameter  (in),  length  (in),  perforation  dia¬ 
meter  (in) ,  and  number  of  perfs 

2960 

Propellant  identification  (an  alphanumeric  string) 

2970 

PI,  B (where  the  burning  rate  (in/sec)  is  B* (space  mean 
pressure  in  psi  +  PI)),  number  of  integration  steps  per 
printout,  expected  peak  chamber  pressure  (psi),  expected 
peak  acceleration  (g's). 

2980 

Number  of  "resistive  pressures''  listed,  followed  by  the 
appropriate  number  of  pairs  of  travel  distance (in)  and 
resistive  pressure  (Ib/sq.in.) 

2990-3020 

These  lines  are  used  by  the  program  to  aid  in  calculating 
the  fraction  of  the  7  perf  grain  burnt  after  splintering. 

3025 

Use  this  line  to  provide  data  if  called  for  by  the  input 
statements 

Data  requested  by  input  statements: 

"Number  of  parameters  to  be  varied":  Enter  a  number  (0  to  5). 

"Number  of  proj  wt,  cham  vol,  pmax,  travel  distance,  charge  v/t" :  The 
number  of  non- zero  enteries  should  be  as  indicated  in  the  immediately 
previous  input.  The  values  for  the  parameters  indicated  should  have  been 
listed  in  line  3025  of  the  program. 

"Option  No  2" 

Enter  a  number  (0  to  7).  The  program  will  then  perform  as  indicated 
below: 
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NUMBER  ENTERED 


ACTION 


0  Compute  IB  trajector  for  input  data  (i,e.,  data 

in  lines  2860-2980) 

1  Change  B  to  match  indicated  peak  pressure 

2  Change  charge  weight  to  match  indicated  pressure 

3  Change  B  to  match  indicated  acceleration 

4  Change  charge  weight  to  match  indicated  acceleration 

5  Change  charge  weight  to  match  indicated  velocity 

6  Print  out  a  blurb  of  the  above 

7  Same  as  0,  but  program  writes  data  on  files  DATA 
DATAl  for  future  use. 

Note  that  if  the  first  input  requested  was  not  zero  multiple  runs  will  be 
performed.  This  is  not  useful  if  "Option  number  2"  is  7. 
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10, 

2  0  0 
30 
40 
50 
60 
?0 
SO 
90 
100 
110 
120 
130 
140 
150 
160 
170 
1S0 
190 
2  0  0 
210 
220 
230 
240 
250 
260 
270 
2  8  0 
290 
300 
310 
320 
330 
340 
350 
3  6  0 
370 
330 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
5  0  0 
510 
520 
530 
540 
550 
560 
570 

580 

581 
590 
600 
610 
620 
630 
640 
650 


UP'flOH  BhSE  1 

verlhf^ 

IHN  C:<50> 

DIM  P^C103 

U  I M  T  <:  2 ,  1  0  .•> ,  F  <  2 ,  1  2  >  ,  F:  6 , 3  ) 

Eheat  *=0 
LET  Z6=0 

Ii  E  F  F  l  -l  R  <  V  9  >  =  U  ^  T  <  Y  9  #  1 0  O  0  >  1  0  0  0 

F  E  R  D  0  1  ji  0  n  la  3  ,  U  5  j  L,  6  j  I  j  7  ^  i  j  8  j  L  *^1  ii  L  9 

LET  E7=G7*12 

RERD  11,12,13,14,15 

RERD  Pi , P2 , P3, P4 , P5, P6, P7, P8, P9,  PO 

REfili  P^  '  ' 

RERD  R ,  E ,  M  2 ,  t'1 3 ,  R  9 
IF  P0<>7’tHEN  190 
LET  Ml  =  ‘rP7-3*P9>.--4 

LET  M2=<  <P7~W1  )'^"2-?*<p9  +  Nl  >'^2>/<P7^'2^7*P9’"-2> 

GOTO  200 
LET  Ml ^1000 
RERD  K 

FOR  1=1  TO  K 
RERD  T<1,  I>,T.<2,  I> 

NEXT  I 

FOR  1=1  TO  12 
RERD  FU,  I>,F<2,  l’> 

NEXT  I 

PRINT  "nUMBER  OF  PRRRMETERS  TO  EE  VRRIED*' 

INPUT  D 

IF  D=0  THEN  510  • 

PRINT  “NO  OF  FROJ  MT,C-HRM  VOL ,  PMRX ,  TRRVEL  IiI>:T,CHRRGE  NT*' 

INPUT  Dl,D2,ri3,D4,D5 

IF  D1=0  THEN  360 

FOR  Nl=l  TO  D1 

READ  L(N1>. 

NEXT  N1 

IF  D2=0  THEN  400 
FOR  N2=l  TO  D2 
RERD  MCN2> 

NEXT  N2  ; 

IF  D3=0  THEN  470 
FOR  N3=l  TO  D3 
RERD  QCNS) 

NEXT  N3 

FOR  N4=l  TO  D4 
READ  Wai4) 

NEXT  N4 

IF  D5=0  THEN  510 
FOR  N5=Q  TO  P5 
RERD  YCN5> 

NEXT  N5 

PRINT  "OPTION  NO  2  (0<-X>-5)  ;  INPUT  6  fOR  EXLRNRTIOH" 

INPUT  Cl 

IF  Cl <6  THEN  760 
IF  Cl =6  THEN  620 
C1=0 

CREATE  "DATA", 126 
CREATE  "DRTR1",3 
ASSIGN  #1  TO  "DATA" 

BUFFER  #1 

ASSIGN  #2  TO  "DATRl" 

E  h  e  at  =  1 
GOTO  930 
PRINT 
PRINT 
PRINT 

PRINT  "TO  MATCH" ;  TRE<20)  ;  "BY  RD  JUST  1 NG  "  ;  TRB  •:!  4  1  "  I NPUT  " 
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660 

PRINT 

670 

PRItn  "NOTHING"  ;  TAB*:: 4 

6S0 

PRINT  "PMAK" 

; TAB <20) ; 

690 

PRINT  "PMAX" 

;  TAB'::20>  ; 

700 

PRINT  "ACCEL 

";TRB<20> 

710 

PRINT  "ACCEL 

" ; TAB (20) 

720 

PRINT  "VELOC 

ITY"; TRB( 

730 

PRINT 

740 

PRINT 

750 

INPUT  Cl 

760 

IF  D=0  THEN 

930 

770 

IF  ril=0  THEN 

800 

1*'  y  u 

FOR  Nl=l  TO 

Di 

790 

LET, G1=L<N1 ) 

300 

IF  ri2  =  0  THEN 

830 

8  1  0 

FOR  N2=l  TO 

ri2 

"CHARGE 


WT";TRB<43>: 

T  Cl  V.  i'  A  •  »•  O  <1 


20)  ;  " CHARGE '  WT" ;  TAE'::43: 


S20  LET  G3=M<H2> 
830  IF  D3==0  THEM 


iJ&O 


340 

FOR 

H3=l  TO  ri3 

350 

LET 

360 

IF  ri4  =  0  THEN  890 

370 

FOR 

N4=l  TO  D4 

y  y  y 

LET 

G2=N(N4) 

390 

IF  ri5  =  0  THEN  930 

900 

FOR 

N5=l  TO  D5 

910 

LET 

P1=Y(N5) 

9  2  0 

NEXT  N5 

930 

LET 

J1=I 1*12/(13-1) 

940 

LET 

J2=J1/I4 

950 

LET 

J3=I 1*12/14 

9  6  0 

LET 

J5=I 1*15 

970 

LET 

Q1=P1*P2/(P3-1  ) 

930 

LET 

Q2=Q1/P4 

990 

LET 

03=P1*P2/P4 

1000 

LET 

Q4=P1/P6 

1010 

LET 

Q5=P1*P5 

1020 

LET 

Q6=I 1+Pl 

1030 

Q7  = 

P3 *  (  P?  "'2 - P0*P 9 2  ) 

1040 

LET 

Q8=G6/2 

1050 

LET 

0 1  = .  y  y  *  L  y  l .  5  *  ( u  2 + u  3  /  u  4 )  * 

1  0  6  0 

LET 

01=01/(  1  +  .  175/Pl  -’‘. 

1070 

LET 

H 1 =0 1 + ( G 1 +Q6/G5 ) /772 

1030 

LET 

02=1/(P3-1> 

1090 

LET 

H2=1+Q6/(G1*G5) 

1100 

LET 

03= 1 / ( (2*02+3 ) /G5+2* ( 02+ 1 

1110 

LET 

H3=( 1-03) ^(-02-1 ) 

1120 

LET 

H4=G4*3S6/G1 

1130 

IF 

M2 >=150  THEN  1160 

•;:p4-380) 

8  c;  ?  5  )  '•''  <  1  4  4  G  7  G  7  ) 


+  1  >*Gl.''Qb) 


1140  PRINT  "TIME  DIST 

1150  PRINT  "FR.  ACCEL 

1160  LET  T=1000 
1170  LET  T2  =  T<2,  1) 

1180  LET  N==0 
1190  LET  Ml=l 

1200  LET  R< 1 , 1)=R( 1 ,2>=R< 1 , 
1210  LET  N1=R<1,2) 

1220  LET  Vl=Ra,3) 

1230  FOR  1=1  TO  3 
1240  LET  R(:2,  I  )=R'::  1,1) 

1250  NEXT  I 

1260  LET-  J  =  2 

1270  GO SUB  2230 

1230  LET  S=S+QS 

1290  LET  J=3 

1300  FOR  1=1  TO  3 

1310  LET  R<2,  D=R<:2,  I  )^G6 


PRES 

BASE" 


VEL 


TEMP 


>  =  B6=2  =  T2  =  S  =  ]B3  =  B4  =  E5  =  25  =  Z6=0 
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1320  LET  I  )'=R(  1  ,  1  >  fRC2,  I  >v-2 

1330  NEXT  I 

1  3  4  0  G  0  S I J  Ii  2  2  0  0 

1350  LET  J=4 

13G0  FOR  1=1  TO  3 

1370  LET  R(3, I >=R<3, I >xG6 

1380  LET  R<4,  I  >=R<  1  ,  I  >+R(3,  n/2 

1390  NEXT  I 

1  4  0  0  G  0  S  U  £  2  2  8  O 

1410  LET  J=5 

1420  LET  S=S+Q& 

1430  FOR  1=1  TO  3 

1440  LET  R<4,  I  >=R<4,  I 

1450  LET  R‘::5.  I>=R<1,  I)+R(4,  I> 

1460  NEXT  I  ’ 

1470  GOSUB  2280 

1480  FOR  1=1  TO  3 

1490  LET  R<5, I >=R(5, I >*G6 

1500  LET  R(l,  I>=R<1,  I>  +  (R'::2,  I>+R(3,  I>*2  +  2^R<4, 

1510  LET  R<6, I >=R<  1  ,  I  > 

1520  NEXT  I  . 

1530  LET  .J  =  6 

1540  IF  Eheat  THEil  PRINT  ^  1  ;  V ,  X ,  P < G3+G4i^X-P  1  * <  I -2 ) /PG >  ,  T 
1550  IF  r‘l2*INT<:Ml/M2><  >rli  THEN  1590 

1 560  PR  1  NT  S* 1 000 ; TRB < 8 > ; FHB < R O , 2 ) > ; TRB < 1 8 ) ; I NT < BO > ; TRB < 27 > ; 

1570  PRINT  INT<R(1,3>/12>;TRBC34); INT(T>;TRB(45>;FHR<2>; 

1580  PRINT  TRB<54:>;  INT(R1/3S6.09>;TRE<63>;  INT<B2> 

1590  IF  R<l,2>>=G2-25  THEN  1610 

1600  GOTO  1630 

1610  N=N+1 

1620  LET  i::<N>=B2 

1630  IF  Ra,2>>  =  G2  THEN  1730 

1640  LET  Mi=Ml+l 

1650  LET  V=R<1,3> 

1660  IF  B0<=B3  THEN  1210 
1670  LET  R5=R1/3S6.09 
1680  LET  B3=B0 

1690  LET  B3=B2  ; 

1700  LET  B4=S 
1710  LET  B5  =  Ra,2> 

1720  GOTO  1210 

1730  LET  X=<G2-X1  ,  2>-Xl  ) 

1740  LET  V  =  Vl+X*<Ra,3>-Vl> 

1750  LET  31=S-Q3 

1760  LET  29  =  C<N'-1  )+X*'::C(N>-C<N'’l  >  ) 

1770  IF  C1=0  THEN  1960 
1  7  y 0  B r  an c  h  =  1 

1790  IF  f:Branch>=0  RNB  (BranchCS)  THEN  ON  Branch  GOTO  1  800 ,  1 S30 ,  1 860 ,  1 890 ,  1 920 
1300  IF  RBSCB3~M3><200  THEN  I960 
1810  LET  B  =  B.-'<  1-.  S5*<M3-*B3>/(:M3  +  B3>  > 

1820  GOTO  1940 

1830  IF  RBS<B3~M3><2O0  THEN  I960 
1840  LET  Pl=Pi/(l--.9*<ri3-B3>/<H3  +  B3>> 

1850  goto  1940 

1860  IF  RBS<R9-R5>< 100  THEN  I960 
1870  LET  B  =  B*'':  1~1  .  l*<R9-*R5>/<R9  +  fi5>  ) 

1380  GOTO  1940 

1890  IF  RBS<R9-R5>< 100  THEN  I960 
1900  LET  P1=P1.-''!  1-.  9^<R9-R5)/(fi9  +  fi5>  ) 

1910  GOTO  1940 

1920  IF  RES(G7-V/Q2><:  10  THEN  I960 

1930  LET  Pl=Pl.-<  1-1 .5*‘::G7-V/12>/CG7  +  V.^'12>> 

1940  LET  E7=V 
1950  GOTO  930 
I960  PRINT 

1970  IF  Eheat.=0  THEN  2080  29 


19S0 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2030 
2090 
2100 
2110 
2120 
2130 
2  1  40 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 


CRLL  f-:j  Ci^l  ,  #2,  PI  -  <G3  +  i:2*G4>  ,  <  V>  ,  S,  G6,  T  ,  P5 ,  G2  +  G3  •  G4 ,  G8 ,  G3.^G4  > 

IF  M2 >=500  THEN  2190 
PRINT  “PROJ.NT.  =";Gl; "LBS. " 

PR  I  NT  “  I N I T .  CHRM .  VOL .  = “ ; G3 ; " CU .  I N . “ 

PRINT  “CHG  NT  =“;Pl;“LBS." 

PRINT  nRRVEL  BIST.  =  “  ;  G2 ;  "  I N .  " 

PRINT  "MUZZLE  VELOCITY  = " ; I  NT < V/ 1 2 ) ; " F/S “ 

PRINT  "MRX.  CHRM.  PrES.  =  "  ;  I  NT  <  B3  >  ;  "  PS  I  RT";B4;"SEi;::.  OR  “  ;  B5 ;  "  I N ,  " 
PRINT  "MAX.  BASE  PRES.  = " ; I  NT < BS ) ; " PS  T* 

PRINT  "MUZZLE  PRESSURE  =  " ; I  NT < 29 > ; " PS I  AT  ":SJ;"SEC" 

PRINT  "MAX.  ACCEL  =  "  ; I  NT < A5 ) ; " GS " 

IF  Z<1  THEN  2130 

PRINT  "FRACTION  BURNT  = " ; Z ; " AT " ; Z5 ; " I N  FROM  MUZZLE" 

GOTO-  2140 

PRINT  "FRACTION  BURfFr  =";Z 

PRINT  "BETR";B 

PRINT 

PRINT  G9  ,  I  1  ,  T (  1  ,  1  >  ,  T  2 ,  1  )  ,  T  a  ,  2 >  ,  T <  2 , 2 > 

PRINT 

GOTO  2740 

IF  E9=l  THEN  2240 

PRINT  "PRDJ  WT  BIST  CHAM  VOL  CW  PMAXP 

PRINT  "IV  ACCEL  BETA" 

LET  E9=l 
PRINT 

PR  I  NT  TAB ( 1 > ; G 1 ; TAB  <  8  > ; G2 ; TAB  < 1 5  > ; G3 ; TAB  <  24 ) ; P 1 ; T  AB  <  32  > : 

PR  I  NT  I  NT  (  B3  >  ;  T  ;  B  ‘C  40  >  ;  I  NT  <  V--'  1  2  >  ;  TAB  (  4S  >  :  I  NT  AS  >  ;  TAB  <  56  >  ;  B 

PRINT 

GOTO  2740 

LET  U=R<J,1> 

LET  X  =  R<J,2::' 

LET  V  =  R<:J,3> 

IF  Z>=1  THEN  2350 
IF  U>=Ni  THEN  2400 

LET  Z=1-<P8-U)*<  'CP7-U>---2-PO*>::F9  +  LO----2:'/Q7 
GOTO  2470 
LET  Z=1 

IF  Z6=l  THEN  2470  j  . 

LET  Z5=G2-X 

LET  Z6=l 

GOTO  2470 

FOR  K=1  TO  12 

IF  F<1,K>*W1>U  THEN  2440 

NEXT  K 

GOTO  2350 

LET  W3=  < Ll/W  1  -F  a  ,  K- 1  >  > <  F  (  1 ,  K )  -F  <  1 ,  K-  1  )  > 

LET  N4  =  v:P8~U>/PS 

LET  Z=  1 -M4*  <  F  C 2 ,  K- 1  >  +  <  F  <  2 ,  K  >  ~F  <  2 ,  K-- 1  >  > 

LET  T1=0 

IF  X=0  THEN  2560 

FOR  K=2  TO  10 

IF  X<=T<1,K>  THEN  2530 

LET  T  1  =T  1  +  T  <  1  ,  K  )  -T  <  1  ,  n  )  ^  <  T  <  2  ,  K  )  +  T  <  2 ,  K- 1  >  >  /2 
NEXT  K 

LET  T2  =  T<2,K-l>  +  <T<2,K>-’T<2,K-U>*a<l,K>-X>/<T(:i,K>-T<l 
LET  T  1  =T  1  <  T2  +  T  <  2 ,  K- 1  >  >  *  <  X~T  <  1 ,  K- 1  >  >  /2 
LET  T1=T1*G4 

LET  T  =  CJ1+Q1*Z-H1^V*V-T1  )--( J2  +  Q2*Z> 

LET  V0  =  G3  +  G4*X'-Q4t^<  l~Z>-J5'-Q5*Z 
IF  V0<0  THEN  2600 
GOTO  2620 

PRINT  G3,  G4,  Q4,  .J5,  Q5,  Z 
GOTO  3030 

LET  E 1  =  T  *  <  Q  3  *  Z  +  J  3 )  -•  V  0 
LET  B2=Bi/H2 

LET  E0=B2#H3  30 


1 


4 


2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2370 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2  9  y  0 
2990 
3000 
3010 
3020 
3030 
3990 
4000 
4005 
4020 
4060 
4070 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 

4280 

4281 
4290 
4300 
4  301 


IF  XO0  THEM  2670 
IF  B1<G9  THEN  2690 
LEI  fil=H4*(B2-T2> 

GOTO  2700 
LET  F)1  =  0 

LET  R«:: J,  1  >=2^B*a:l+R> 

LET  R<J,2>=V 
LET  R<J,3>=^fil 
RETURN 

IF  ri  =  0  THEN  2850 
IF  D5=0  THEN  2770 
NEXT  N5 

IF  II4O0  THEN  2790 
NEXT  N4 

IF  r!3  =  0  THEN  2810 
NEXT  N3 

IF  D2=e  THEN  2830 
NEXT  N2 

IF  D1=0  THEN  2850 

NEXT  N1 

PfiUSE 

DflTR  15 

DRTR  135.84,360 

DRTR  3,. 00005 

riRTR  3400,3,7.21 

DRTR  2500 

DRTR  .02 

DRTR  1 . 152E+06, 1 . 25,2000,30 
DRTR  8.8 

DRTR  3445000,  1 . 269 2065 , 32 -  S 1  ,  -  056- 
DRTR  . 1425, . 35, .0132, 7 
DRTR  "EX65S6’' 

DRTR  6500, . 000056673,200,52300,0 
DRTR  2,0,1800,500,1000 

DRTR  1,1,1  ..006, 0. 967,  1  ,  G24, 0. 874,  1 . 05.5, 0. 735 
DRTR  1  .  101 ,0, 569,  1 .  162,0.395,  1 . 24,  O.  2'33 
DRTR  1 . 292,0.  191,1. 347,0.  104,1. 409,0,049 
DRTR  1.48,0.014,1.557,0 
STOP 

SUE  E  j  C  #  1 ,  #2 ,  Rho  i  ,  V  i  ,  T  i  ,  Dt, ,  T emp  i  ,  Rda,  Xm .  D ,  C 1  > 

OPTION  BRSE  1 

OVERLRP 

Eo.^=Eob  =  0 

Xt=Xm 

K  o  u  n  t  =  T  i  /  n  t 
Vi=Vi/XrM 
Rh=l/Rhoi 
Tp  =  0 
G  n‘i  1  = ,  id  5 
Cu=. 34 

I  NPUT  ”  C'v* ,  Rda,  Gm  1  "  ,  Cv ,  Rda,  Grn  1 
R 1 1 0 :  K  D  1.4  n  t  =  K  o  u  n  t  + 1 
Tp  =  Tp  +  Dt. 

T=Ti +Tp 
Deru=l  +  Vi  *Tp 
V  =  V 1  D  e  m 
Rho  =  Rho  i  ••'Dern 

Tenip  =  Ternpi  <Rh*-Rda>X<  1 -•'Rho'-Rda>  )*^Gr.il 
V=V*Xrri 

PRINT  #i;V,Xt.,  Rho,  Temp 
IF  Kount  MOD  400  THEN  RllO 
IF  Eoa  THEN  R40 
IF  V*Rho>=iO0  THEN  flU0 
Eoa=  1 
Dt.  =4*Dt 

PRIHT  #1 ;  1E51 , 0, 0, 


CO  CO  CO 


4305  GOTO  fill© 

4310  fl40:lF  Rho>=. 00050  THEM  flllO 
4315  PRINT  #1 ; 1E51 , 0, 0, 0 
4320  Kii’i  =  Xt,. 

4330  Dt.-Dt  ''4 

40-  PRINT  #2;  Rhcl  ,  Vi  ,  Ti  ,  Bt ,  Ternpi  ,  flda,  Km,  D,  Cl 
60  SUEEND 
70  END 


t 
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J 


"NOZZLE” 


Input  data 
of  lines  20  and 

Parameter 

FO 

Beta,  PI 

C 

Rhop 

Ada 

TO 

Gamma 

Force 

C0,C2,C2P 

VO 

I 

Ast 

Pstart 

G6 


is  ^nes  110  and  120  corresponds  to  thp  READ  statements 
30.  Input  dat  is  as  follows: 

Data 

Initial  web  fraction  remainging,  (0<F0<1) 

If  FO  is  too  small  the  initial  pressure  will 
exceed  the  intended  nozzle  start  pressure. 

The  assumed  burning  rate,  in  inches  per  second, 
is  Beta  (P+P1)/W  where  P  is  the  chamber  pressure 
in  psi  and  W  is  the  web  size  (inches) 

Charge  weight  (pounds) 

Propellant  density  (Ib/cu.in.) 

Propellant  covolume  (cu. in/lb.) 

Adiabatic  flame  temperature  (®K) 

Ratio  of  specific  heats 

Impetus  (in  Ibf/lbjn) 

These  are  the  Rq,  k2,  and  -k2  of  NDRC  A142  of 
5  Feb  1943;  they  are  used  to  help  calculate  the 
amount  of  propellant  that  has  been  bprnt. 

Chairber  volume  (cu.in.) 

Area  of  the  erosion  nozzle  (sq.in.) 

Nozzle  start  pressure  (psi) 

Integration  step  size  (sec) 
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lei  OVERLHP 

2  0  F:  E  F  D  F  0 ,  B  e  t  -a ,  P 1  ,  C ,  F  h  o  p ,  R  d  a  j  T  0 ,  G  arn  m  a ,  F  o  r-  c  a  ,  C  0 ,  C  2  ,  C  2  P 

30  REFiri  V0 ,  fist ,  Pst  art  ,  G6 

40  Si=S=0 

50  Ztjt  a=  < 2.'' < Gamfua+ 1  >  > ••  <  1 (Gamma- 1  >  > 

€0  Ep - ( 1 -2*2at  a) /Gamma 

70  P  h  e  1  p  =:  <  2 .  <  G  am  m  a+ 1  >  ^  <  G  am  m  a-  -  ( G  am  m  a- 1  >  > 

80  GIS-G6/2 
90  Braak=0 

1 00  I MflGE  DK .  Drirm ,  nn .  Drin ,  dddb .  DHiiD ,  DnnriDri .  iiDiiDDDnriD ,  bihd .  puddh ,  er 
1 1 0  IiflTfl  0 . 500  ,  .  005200 , 6500 ,  .  300 ,  .  05? ,  32 .81, 2065 ,  1 . 269 , 3445000 ,  .  8302 

120  DRTfi  19. 2, . 090, 41000, . 000050 

130  R<1;.1>=F0 

140  R'::i,2)=0 

150  Kount=0 

160  CREATE  "riflTfi",126 

170  CREATE  “rifiTAr',3 

180  ASSIGN  #1  TO  "DATA" 

190  ASSIGN  #2  TO  "DfiTAl" 

200  BUFFER  #1 

210  FOR  1=1  TO  2 

220  LET  R(2, I)=R(1.  I) 

230  NEXT  I 

240  LET  J=2 

250  GOSUB  660 

260  LET  S=S+Q8 

270  LET  J=3 

280  FOR  1=1  TO  2 

290  LET  R < 2 , I ) =R C 2 , I ) #G6 

300  LET  R<3,  I  )=R(:  1  ,  n+R<:2,  I  )/2 

310  NEXT  I 

320  GOSUB  660 

330  LET  J=4 

340  FOR  1=1  TO  2 

350  LET  R ( 3 , I ) =  R  <  3 , I >  *  G  6 

360  LET  R<4,  I  )=R<  1  ,  O+RCS,  n/2 

370  NEXT  I 

380  GOSUB  660  ■  ■ 

390  LET  J=5 

400  LET  S=S+Q8 

410  FOR  1=1  TO  2 

420  LET  R<4,  n=R<4,  n*G6 

430  LET  R(5,  I  >=R<  1 ,  I  )+Ri::4,  I  > 

440  NEXT  I 

450  GOSUB  660 

460  FOR  1=1  TO  2 

470  LET  RC5,  i;)=R(5,  1)*G6 

480  LET  R<  1 ,  I  >=R(:  1  ,  I  >H  (:r<2,  U+RCS,  I  >*2  +  2#R<4,  I  )+RC5,  I  >  >/6 
490  LET  R<6, I)=R<1, I> 

500  NEXT  I 

510  PRINT  USING  1 00 ; S , 2 , S i , T , P , Rho , Ust 

520  IF  Ust=0  THEN  210 

5  3  0  K  o  u  fi  t  =  K  o  u  fi  t  +  1 

540  PR  I  NT  #  1 ;  List ,  1 ,  Rhost ,  Tst 

545  IF  Kount  MOD  4<>G  THEN  210 

550  IF  NOT  Break  OR  C Rho > .  0035 THEN  210 

570  IF  SI  THEN  SI  a 

580  Sl=l 

590  PRINT  #1 ; 1E51 , 0, 0, 0 
600  G6=4*G6 

605  Q8=4*QS 

610  GOTO  210 

615  SI  a:  IF  Rho>.001  THEN  210 

620  PRINT  #1 ; 1E51 , 0, 0, 0 

630  PR  I  NT  #2 ; 0 , 0 , 0 , G6/4 , 0 , Ada, 1,1. 25*SQR  <  fist  > , 1 
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1329, .367 


I 


640  L  0  Ii  "  n  e  n  s  r*i " 

650  STOP 
660  F=:R<J,n 
670  Si-R<:jj2> 

6S0  2-< l-F>*<C0+C2p*F> 


690  IF  2>l  THEN  2=1 

700  IF  F>0  THEN  <  1 -F >  # < C0tC2#F > 

710  IF  F<-.5  THEN  2=1 
720  2he 1 p  =  VO-C*  < 1 -2  >  ^Rhop 
730  V  p  r- 1  s  =  2  h  e  1  <  C  *  2  3 1  !>  *  R  d  a 

740  Vth=2hel  p’-C*2^^fida 

750  T“-TCi  If  <.  Vl.  h*  (  Z^S  1  /'C  )  /  <  Vpres  #2  )  )  ^  <  G  anirn  a^  1  ) 
760  P  =  F  o  r  c  &  *  C  C  *  2  '•  S  i  •Jr  T  r-'’  C  T  0  *  V  e-  s  ) 

7 7 u  B r  & ak  =  E r e ak  OR  ( P  > P £. t  ar t  > 

780  Rho=<C*2-Si >/Zhelp 


7  9  u  S  i  g  Hi  a=  R  f*i  o ''  i  1  ”  R  d  aw  R  f  i  q  j 


300  RC  J,  1  )=-Beta*CP-^Pl  > 

810  IF  NOT  Break  THEN  RETURN 

320  Hel  per^Ep-^flda^S  i  groa 

330  S  i  gma-=.t  =2et  a*S  i  gnia^^  C  1  +He  1  per) 

340  RKost=Si  gro^st/0+Rda*Si  grrja&t  > 

35y  Tst  =2'J^T-5<’  <  1  +  C  Garruna"  1  >  1  pe'r  >  /  <GafHma+ 1  ) 

3^0  P  s  t  =  P  h  e  1  p  *  P  •5*’  C 1  +  G  ani  rri  a'^  H  e  1  p  e  r ) 

870  Ust=SQR<3S6*Gamfoa*Pst^U+Rda*Rho5 1  t  ) 

880  RC  J,  2>=fist^U’5t*Rhost 
890  RETURN 
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"newnsn" 


The  data  listed  in  this  program  should  not  normally  be  changed. 
Input  parameters  are  requested  as  indicated  below.  Default  values 
are  as  indicated. 


Message 


Keyboard  Entry . 


0  FOR  GRAPHS,  1  FOR  NO  GRAPHS 
TIMM,  TEMPM 

ENTER  LABEL 
GUN  TEMPERATURE? 

ALCP 

XINT,  TINT 


NRDS,  NLA,  IPROPT,  LHELP 


INSIDE  DIAMETER, 
OUTSIDE  DIAMETER 


0  or  1 

Maximum  time  (sec)  and  temperature 
(°K)  to  be  shown  on  graph 
An  alphanumeric  label  for  the  graph 
Temperature  of  gun  steel 
(default  is  300°K) 

(default  is  0. 4/(14. 8  +  4*logio  D)^, 

D  is  the  gun  caliber  in  centimeters) 
Distance  from  idealized  breech  (inches) 
for  these  calculations,  time  to  stop 
calculations  or  go  to  next  round  (sec) 
(default  =  projectile  base  or  nozzle 
throat,  D/100) 

Number  of  rounds  in  this  burst,  number 
of  mathematical  layers,  print  option 
(0  for  full  print,  1  for  1/4  as  much, 

2  for  very  little  printing) ,  mathematical 
layer  to  use  for  bore  surface  between 
rounds  (default:  1,  7,  0,  4) 

Inside  and  outside  diameter  of  the 
gun  (inches) 
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I 


% 


1  OPJIOM  BaSF  1 

5  DIM  Labe1$C40'J 

S  I  N  F’  U  T  “  0  F  0  R  G  R  R  F'  H  S  ,  ^  F  Ci  R  H  Q  G  R  R  P  H  S  “  ,  E  r  i 

7  IF  Fri9  THEN  355  * 

10  PLOTTER  IS  •’GRRPHICS" 

11  PEN  2 

12  DEG 

20  I  NPUT  “  T  I  MM ,  TEMPM " ,  T  i  mi ,  mpn. 

25  LI  NPUT  “Er^TER  LRBEL  ,  Labe  1  $ 

2b  Label  =LENa.ibeU> 

30  LOCRTE 

4  0  S  C  R  L  E  -  T  i  rn  u\  1  0 ,  T  i  m  rri  ^  2  0  O ,  T  e  r»j  fi’  +100 

45  CL  I R.  *-T  i  n'lm/ 1 OO ,  T  i  rniTi ,  299 ,  T enipm 

5  0  R ; E  S  .  0  0  1 ,  1 0  0 , 0  ,  :]!  0  0 

55  iJNCLIP 

60  CSIZE  3 
70  LDIR  0 

30  LORG  5 

90  FOR  I  -'=  .  002  TQ  T  i  rnni- ,  00 1  STEP  .  002 

100  MOVE  1,270 

110  LRBEL  USING  "DD‘';  1*^000 

120  NEXT  I 

121  LDIR  90 

130  LORG  5 

1 4 0^  F 0 R  1=4 Cl 0  TO  T e frt w  S T E P  200 
145  MOVE  -.O30^TiFrtn'!,  I 
150  LRBEL  USING  "DpDD'‘;J 
170  NEXT  I 

130  L  U  R  G  5 

1 9  0  t‘l  0  E  - ,  0  6  *  T  i  n’l  rti ,  (  3  O  O  +  T  e  rt'i  p  ni )  2 

2  0  0  CSIZE  4 

201  LDIR  90 

210  LRBEL  USING  " 20R TEMPERBTURE  aiEG-  K)’* 

220  LDIR  0 

2  3  0  M  0  V  E  T  i  rri  m  /  2 , 2  3  0 

240  LRBEL  US  I NG  " 1 9R ” ; “ T I  ME  < M I LL I  SECONDS > “ 

2  5  0  M  0  V  E  T 1  rn  rn  2 ,  T  e  rti  p  m  +  5  0 
260  CSIZE  6,. 5 

270  LDIR  0 

290  LORG  5 

295  PEN  1 

300  LRBEL  USING  “30R"; Labels 

310  PEN  3 

320  FRRME 

330  PEN  4 

340  MOVE  0,300 

355  OVERLRP 

361  DIM  R c  <  9 9  >  ,  R  1  (  9 9 

370  D  I M  I  s  t  he  C  7  >  ,  Th  (  99 ,4,7),  Dr  <  99 , 7  )  ,  I  s t  a<  7  )  ,  1 1. 1  o 
,  flk  C  40  >  ,  Ho  1  d  7  >  ,  Kno  <  7  > 

371  DIM  RhC4) 

372  MRT  RERD  Rh 

373  DRTR  . 25 , 1 5 333333333333 
3 4  I  p  r-  o  p  t  =  1 

3  S  0  RERD  T  h  t ,  E  o  p  r ,  L  h  e  1  p» ,  T  rn  a  ;•< ,  (1  o  d  f 
381  MRT  Hold=<Tht) 

390  DRTR  300,1,4,0,1 
400  RSSIGN  #3  TO  "DRTR“ 

405  BUFFER  #8 

410  RSSIGN  #7  TO  ’'DRTRT' 

411  Ec.f  =  6 

420  RERD  #7 ;  Rho  i  ,  i  ,  T  i  ,  Du ,  T ernp  i  ,  Rda,  Xr.i ,  D ,  X  i  n t 

421  Xi=:--Iint 

430  INPUT  “GUN  TEMPERflTURE'> “  ,  Tht 
440  MRT  Th=<Tht) 

510  MRT  RERD  I  st  a,  I  =.t  o ,  Jp ,  I  st  he 


Jp <  7 > , Dt  < 7 > , D^ < 7 > , R 1 ph <40 > 
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520 

DRTA  1,5, 7, 8, 9, 9, 9, 7, 11, *13, 15, 15, 15, 15,4,4,4,4,4,4,4,  1,5,7, 

y ,  9 , 9 

530 

READ  Eread, Er, ErO, Enew, Eos 

540 

DATA  1 , 1 , 1 , 0, 1 

550 

Erh  =  0 

560 

H2==  1E50  - 

570 

Erh  =  0 

530 

READ  S ,  I  r  d  s ,  N  r-  d  s ,  K  o  £■  hi 

590 

DATA  0, 1 ,  1 , 0 

600 

A  1  c  p  = .  4  -  ■  <  1  4 . 8  +  4  *  L  G  T  ( Ii  >  )  2 

610 

INPUT  “ALCPT’^Rlcp 

620 

INPUT  ••XINT,TINT?“,Xint  ,Tint 

63£i 

INPUT  “NRDS,NLA, I PROPT , LHELP? % Nrds , N 1  a, Ipropt,Lhe]p 

640 

T=a=Tcal=0 

/ 

730 

L  i  rn  =  L  rn  i  n  =  1 

740 

T  i  nt  100 

• 

750 

N1a=? 

760 

MAT  READ  Ak,Alph 

770 

DATA  0,0,0,0,0, . 108, .  108,  .  107, .  106, .  105, • 103, • 101 , .098, .096 

,  .095 

, . 083, . 033 

.  073 

, .073, .068,  .062,  .053, .06, .668, .889, . 107, . 122, . 130,  .  135, . 140, 

.  145. 

.  145 

780 

DATA  0, 0, 0, 0, 0, 0, 0, 0 

790 

DATA  0,O,0,0,0,  .  123,  .  122, . 115, . 109, . 103, .896, .89, .084, .078, 

.072, 

•  066 , • 06 1 , 

055, 

.049, .046, .045, .048, .056, .07, .089, . 1 13, . 128, . 135, . 140, . 1 45, . 

150,  . 

150 

800 

DATA  0,0, 0,0, 0,0, 0,0 

320 

A  1  phir»=0 

330 

FOR  Kl=l  TO  40 

840 

Alphfti=MRX<Al phm, A1 ph<kl > ) 

850 

NEXT  K1 

860 

Tdes i r "T i nt 

370 

Rlce-422. 5^Hl cp 

8  3  0 

Hsp  ace-SOR<Du^^Rl  phrin»3  ) 

890 

Const  =  Du^<Hspac  e^Hspac  e  > 

900 

FOP  Kl=l  TO  40 

910 

RIphCKl >^Const*RlphCKl ) 

920 

Rk  <K1  )  =  Const  <Kl > 

950 

NEXT  K1 

940 

A 1 c  p  =  R 1 c  e^Hspac  e^Const 

950 

PRINT  "THE  SPACE  INTERVAL  IS",Hspace 

960 

INPUT  "INPUT  INSIDE  DIAM,  OUTSIDE  DIAM",Ri,Ro 

970 

R1  =2.  54irRi 

980 

Ro=2. 54*Ro 

990 

Kou=8-Nl a 

1000  Sh  =  riu.-^Hspace 
1010  Dt  C Kou >  =Du* 1 000 
1020  D  s  <  K  o  u  )  =  H  s  p  -ac  e 
1038  FOR  Kol=Kou  TO  6 
1040  Dt  OCol  +  l  >=4*Dt  <Kon 
1 050  Ds <  Ko  1  + 1  >  =2-^Ds  •' Ko  1 ) 

1060  NEXT  Kol 

1 0?0  I  s t  o  C  ?  >  =  I  NT  <  <  Ro-R i > /Ds  k  7  >  + . 5  > 
1030  REM  —CIRCULAR  CORRECTIONS 
1090  FOR  I=Kou  TO  7 
1100  I  S  t  Op= I S  t  O (  I  > 

1110  FOR  Ii=l  TO  I St  op 
1120  R  =  Ri +Dst:  I  >*I  i 

1130  Dr  Oi  ,  I>=Ds<n/<2*R> 

1131  NEXT  li 

1132  NEXT  I 
1140  Eoe=l 

1145  fi1c€=Alce/12 
1150  FOR  K7=l  TO  4 
1160  L=7 

1170  Knof:7>=J  =  K7 
1180  GOSUB  Heater 
1190  IF  Eoe  THEN  J7 
1200  FOR  K6=l  TO  4 
1210  L=6 
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1 2  2  0  K  n  o  <  G  >  -  J  =  K  6 
1230  G  0  S  U  B  H  ic*  <3i  1 1’  r* 

1240  IF  Eoe  THEH  J6 
1250  FOR  K5-=l  TO  4 
1260  L=5 

1 2  0  K.  f”i  o  5  y  —  J  ~  K.  5 
1280  COSUB  Heater 
1290  IF  Eoe  THEN  J5 
1300  FOR  K4=l  TO  4 
1310  L^4 

1320  Kno<4>=J=K4 
1330  GOSUB  Heater 
1340  IF  Eoe  THEN  J4 
1350  FOR  K3“l  TO  4 
1360  L=3 

13?0  Krio<3>=J  =  K3 
1380  GOSUB  Heater 
1390  IF  Eoe  THEt^  J3 
1 4  0  0  F  0  R  K  2  =  1  T  0  4 
1410  L=2 

1420  KnoC2>=J=K2 
143  0  G  U  S  U  B  He  at  e  r 
1440  IF  Eoe  THEN  J2 
1450  FOR  Kl=l  TO  4 
1460  L=1 

1470  Kno<l)=J=Kl 
1 4  y  U  b  U  S  U  E  H  e  a  t  e  r 
1490  NEXT  K1 
1500  J2:  NEXT  K2 
1510  J3:NEXT  K3 
1520  J4:NEXT  K4 
1530  .J5:NEXT  K5 
1540  J6:NEXT  K6 
155‘0  J7:NEXT  K7 
1560  GOTO  1150 

1570  Heater:  IF  Kos-hOO  THEN  2690 

1590  DEF  FNEel -::ia)=Itr<Ia.,  L)-‘::fikO£-l)-fik<Is3>>/-';:4*Rk<I;=.2>>  ; 

1600  riEF  FNF‘::fi,B,C)=Rl  a<>*<R*‘;i-’Be*>-’B-B  +  C^atDe>>+E 
1610  DEF  FNG<fi,  B,  C,  E>=E*FNF-::R,  B,  +  <  1-E>^B 
1615  Eopr  =  <  I  pr opt  =  1  >  OR  (.  I  pr opt  =2  >  RND  <  J=  1  > 

1620  Jp<L>=-J 
1630  Ro=0 

1640  1st  ar  t  =  I s  t  a<  L) 

1650  1st  o  p = I s  t  o ( L ) 

1660  1 1  =  I  St  art +  1 

1670  r2=Istop~l 

1680  Jhe=i+<J+2>  MOD  4 

1690  IF  J=1  THEN  Ho 1 d < L > =Th ( I st op , 4 , L) 

1700  FOR  1  =  I  St  art  TO  I  stop 
1710  Ll=Thc:i,Jhe,L>/50 
1720  P1=L1  MOD  1 
1725  LI  =  INT'::L1  ) 

1 730  R 1 < I >  =R 1 ph ( L  O “P 1  *  <  fl 1 ph  a  I) “fi 1 ph  <  L 1 + 1 >  > 

1740  Rc  <  I  )=Rk<Ll  >“P1  *<Rk  <L1  >-Rk<:L1  +1  >  ) 

1750  NEXT  I 

1760  IF  L=7  THEN  Outside 
1770  REM  — OUTER  STEP  OF  LRY^R 
1730  Is=Ista<L+l> 

1790  LI  =Th<  Is,  Jp<L+l  ,  L+1  >/90 
1  8  0  0  K  ==  I  S  t  O  f!' 

1810  De-Dr  <  K,  L)~(fic  (  I  stop-2  >-Rk  <1^1  >-P)  *<Rk<Ll  >’-Rk  (LI  +1  >  >  >/<4*Rc  <  Istop)  > 

1 820  Th < I s t op , J , L >  =FNG < Th ( I s t op-2 , 4 , L > , Th < I st op , 4 , L ) , Th < I s , Jp< L+ 1 > , L+ 1 > , fih < J > 
1830  Out  side: FOR  K=I1  TO  12 
1  y  4  U  D  e  =  D  r  (  K ,  L  ( fi  c  (  K  - 1  )  ~  R  c  (  K  t  i  ^  (  4  R  c  (  K  )  ) 

1 850  Th  <  K , J , L  >  =FNF ( Th ( K- 1 , The , L  > , Th ( K , Jhe , L  > , Th  <  K+ 1 , Jhe , L  > ) 

I860  NEXT  K  39 


1S70  IF  L*?  THEN  Th  <  I  ■=•  t  Of;' ,  J ,  7 )  =  <  2«  Th  <  I  St  op- 1 ,  J ,  7 -  Th  <  I  st  op-2 ,  J ,  7  > -^2+ 1 . 8 )  / 1 . 506 
1880  REM  --THIS  fiSSUMES  K= . 1 1 , H= . 00067 , flND  fiMBIEHT  TEMP  IS  300  K 
1890  IF  L  =  Ltrtiri  THEN  fl40 
1900  Is.=  Isto':L-l) 

"1910  Ll=Thas-l,  l,L-l)-/50  ' 

1920  P1=L1  MOD  1 

1930  De  =  Dr  <  Ist  art ,  L>-<flk  CLO-Pl  *(flk  CLl  )-flk  <L1  + 1  >  <;  I  £t,  .iirt  + 1  >  ■;  /'<4*fic  <  Ist  art  )  ) 

1940  K=  Is- tart 

1 950  Th <  I £.t  -art ,  J ,  L )  =FNF < Ho  1  d < L- n  ,  Th <  I st -ar t ,  Jhe ,  L)  ,  Th I s  t  art  + 1 ,  Jha ,  L > ) 

I960  IF  Eopr  THEN  PRINT  USING  1 955 ;  S ,  Rv ,  Q ,  L ,  Th <  1  st  ar t ,  ..T ,  L) ,  Th <  I s-t art  + 1 , -J ,  L ) ,  Th<  I 
s  t  ar  t  +  2 ,  -J )  L  )  ,  T  h  ( I  s  t  ar  t  +  3 ,  -J ,  L 

1965  IMAGE  DDDZ .  D ,  SD2 , 6DZ .  DD ,  4D ,  7D2  .  D ,  7DZ .  D ,  7Ii2 .  D ,  7DZ .  D 
1970  GOTO  Helper 
1980  fl40: S=S+Dt <L) 

1990  IF  Eread  THEN  flSO  ,  ■" 

2000  IF  Eos  AND  <  Th U  , -J ,  L  )<  1 . 5*Th  < -5 ,  J ,  L  >  >  THEN  H120 
2010  R45;  Th<  1,  -J,  L)  =  <2*Th<2,  -J,  L)-Th<3,  J,  L)/'2)/l  .  5 
2020  Enew= < S >=Tdes i r ) 

2.030  IF  Eopr  THEN  PRINT  USING  1 965 ;  S ,  Rv ,  Sq ,  L  ,  Th  (  I  st -ar  t ,  J  ,  L  >  ,  Th  c;  I  st -ar  t  +  1 , -J ,  L  )  ,  Th  < 
1st -art +2, -J ,  L>  ,  TkK  1st  ar  t +3, -J  ,  L  > 

2040  GOTO  Helper 

2045  A50:  M=M+1  ’ 

2046  READ  #8 ;  V ,  X ,  Rho  ,  Tg-as 

2047  X=X+Xi 

2050  IF  V>1E49  THEN  A70 
2060  A60:Vga£=0 

2070  IF  X>Xint  THEN  Vgas  =  V*X i  r.t /'X 
20£i0  HI  =A  1  c e*Rho*Vgas 
2090  Z  =  H1*H2V'<H1+H2> 

2100  Coef=Z«Sh/Rc < n 

2110  Th<  1 ,  J,  L)  =  <:2*Th<2,  J,  L>-Th<:3,  J,  L > -■'2  +  C:oef  *Tgas > 1 . 5  +  Coef  > 

2111  Rv=2*<Tg.as-Th<  1 ,  J,  L>  >  I 

2112  IF  Eng  THEN  2120 

2113  IF  S>Ti  ftinr*1800  THEN  Eng=l 

2119  DRAW  S.-1000,  Th<  Istart ,  j,  L> 

2120  Q=Q+<RM+Rhoy)*Dt  i:L>--'2000 

2130  IF  Eopr  THEN  PRINT  USING  1 965 ;  S ,  Ro ,  Q,  L ,  Th  <  I  st  ar  t , -J  ,  L)  ,  Th  O  st  art  + 1  , -J ,  L  ,  ThC  I 


s  t,  ar  t  +  2 ,  J ,  L  >  ,  T  h  C  I  s  t  ar  t  -i- 

3,.J,L> 

2140 

R  o  u = R  'v* 

2150 

GOTO  Helper 

2160 

R70:IF  Er  THEN  fiSO 

2170 

Eread=0 

2180 

GOTO  R60 

2190 

R80 : Er=0 

2200 

REM - STEP  SIZE 

INCRERSE 

2210 

Sh=2*Sh 

2220 

R100:S=S‘-Dt<L> 

2230 

L rn  1  n  =  L  i  m  =  Mm  =  L  + 1 

2240 

1 1 =Ista<Mm>~l 

2250 

J.j=Kno<Mm> 

2260 

FOR  1=1  TO  li 

2270 

Th<I,  Jj,Mm>=Th<2i^I 

-l,4,Mm~l> 

2275 

NEXT  I 

2280 

I  s  t  cL  (  N  m )  =  1 

2290 

Kosh=3 

2300 

Kount  =0 

2310 

GOTO  ZSbO 

2320 

R120:  IF  JOl  THEN 

fl45 

2330 

Kount.  =  Kount  + 1 

2340 

Eo^3=<L<Lhelp> 

2350 

ON  Kount  GOTO  R45, 

R45,filO0 

2360 

He  1  per: Eoe  =  <Lmi n>  = 

L> 

2370 

Istart=Ista<L> 

2380 

Istop=l£to<L> 

2390 

T  m ax  =  M R X  <  T m  ax ,  T  h  ( 1 

,  J ,  1  >  > 
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2400  IF  Enew=0  THEN  RETURN 

24  1  0  F’R  I  NT  ”  Round  no  ;  I  r  ds ;  "  T  I NE^^  1 000  ;  "  Sec  onde " ;  U I N  <  1  >  5  "  N  a:«;  t  •^-mp  "  ;  i  NT  <  T max  > 
“Bor-e  eurf  ace  t  e-mperat  ur  e " ;  Th<  1 ,  J  ,  Lf'iel  p> ;  '‘Total  heat  i  nput  '* ;  ,  1*INT<  10*0) 

2420  Q  =  Ci 
2430  £ntw=0 

2440  IF  Nrde<=^Irds  THEN  CRLL  l-Ui  t  «;:Nrds. .  Tdes  i  r ,  T  i  nt ,  Ret  urn  > 

2450  IF  Return  THEN  RETURN 

2460  Tmax=0 

2470  Eqs=0 

2430  I  rda-- 1  r  ds+ 1 

2490  Er ead=Er=ErQ=True 

2500  Tdeai r^Tdcsi r+T i nt 

2510  Sh=&hx2 

2520  Lh-,L-1 

2530  FOR  TO  Lh 

2  5  4  0  J  fj  <  I  >  =  4 

2550  NEXT  I 

2560  I=J 

2570  Mriirn^L 

2575  E30:Lh=M-l 

2530  I  s  t  a  C  f'1  m  m  >  =  I  s  t  h  e  <  fl  m  ri’i  > 

2  5  9  0  I  s  ”  I  5 1  a  <  M  nj  m  > 

2600  FOR  Ka=l  TO  Is  ' 

26  1 0  Th C 2*K- 1 , 4 ,  Lh  >  -Th < 2*K ,  1 ,  Lh >  =  (  Th K ,  I ,  M  >  +T h  <  K+ 1 ,  I ,  M >  )  /2 
2620  I  St op= I  St o < Lh) 

2630  Ho  1  d  <  Lh  )  ==Th  <.  I  st  op ,  4  ,  Lh ) 

2640  Mfrirri  =  Lh 
2650  1=4 

2660  IF  Lh>=2  THEN  E30 
2670  Lni  i  n  =  L  i  rj't=  1 
2630  RETURN 
2690  Kosh=Kosh-l 
2700  Eoe=l 
2710  RETURN 

272  El  S I J  B  N  a  i  t  ^ -I  r  d  :=•  s  T  d  s  i  r ,  T  i  rt  t ,  R  e  t  u  r  n  > 

2730  R  E B Ii  N  ad  d ,  T  ad  d 
2740  DRTfi  0,0 

2750  IF  Nadd=0  THEN  B16  ; 

2  7  6  0  N  r  d  s = N  a  d  d  +  W  r  d  s 
2770  Tint=Tadd 
2780  Return=0 
2790  SUEEXIT 

2300  B10:IF  Tadd=0  THEN  STOP 
2810  Tdesi r=Tdesi r+Tadd 
2820  Return=l 
2830  SUBEND 
2340  END 
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No .  of 
Copies 


DISTRIBUTION  LIST 


7 


\ 


i 


Organization 

12  Commander 

Defense  Technical  Info  Center 
ATTN:  DDC-DDA 
Cameron  Station 
Alexandria ,  VA  22314 

1  Director  of  Defense  Research 

and  Engineering 
ATTN :  R .  Tho r kil d  s  en 
The  Pentagon 
Washington,  DC  20301 

1  Defense  Advanced  Research 

Projects  Agency 
Director,  Materials  Division 
1400  Wilson  Boulevard 
Arlington,  VA  22209 

3  HDQA  (DAMA-ARZ,  DAMA-CSM, 

DAMA-WSW) 

Washington ,  DC  20301 

1  Commander 

US  Army  Materiel  Development 
and  Readiness  Command 
ATTN:  DRCDMD-ST 
5001  Eisenhower  Avenue 
Alexandria,  VA  22333 

2  Commander 

US  Army  Armament  Research  & 
Development  Command 
ATTN:  DRDAR-TSS 
Dover,  NJ  07801 

5  Commander 

US  Army  Armament  Research  & 
Development  Command 
ATTN :  DRDAR-SC ,  D .  Gyorog 
H.  Kahn 
B.  Brodman 

S.  Cytron 

T ,  Hung 

Dover,  NJ  07801 


No.  of 

Copies  Organization 

6  Commander 

US  Army  Armament  Research  & 
Development  Command 
ATTN:  DRDAR-LC,  J.  Frasier 
H.  Fair 

J .  Lannon 
A.  Bracuti 
A.  Moss 
R.  Walker 

Dover,  NJ  07801 

3  Commander 

US  Army  Armament  Research  & 
Development  Command 
ATTN:  DRDAR-LC,  R.  Corn 
E,  Barrieres 

K.  Rubin 

Dover,  NJ  07801 

2  Commander 
US  Army  Armament  Research  & 

Development  Command 
ATTN :  DRDAR-LC ,  D .  Downs 
K.  Russell 
Dover,  NJ  07801 

1  Commander 

US  Army  Armament  Research  & 
Development  Command 
ATTN:  DRDAR-QA,  J,  Rutkowski 
Dover,  NJ  07801 

1  Commander 

US  Army  Armament  Materiel 
Readiness  Command 
ATTN:  DRSAR-LEP-L,  Tech  Lib 
Rock  Island,  IL  61299 

3  Commander 
US  Army  Armament  Materiel 

Readiness  Command 
ATTN:  DRSAR-ASR 
DRSAR-LEA 
DRSAR-QAL 

Rock  Island,  IL  61299 
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DISTRIBUTION  LIST 


No.  of 

Copies  Organization 

1  Director 

US  Army  ARRADCOM 
Benet  Weapons  Lab 
ATTN :  DRDAR-LCB-TL 
Watervliet,  NY  12189 

5  Commander 

US  Army  ARRADCOM 
Benet  Weapons  Laboratory 
ATTN:  I.  Ahmad 

T.  Davidson 
G.  Friar 
P .  Greco 
J.  Zweig 

Watervliet,  NY  12189 

5  Commander 

US  Army  ARRADCOM 
Benet  Weapons  Laboratory 
ATTN:  J.  Busuttil 
W.  Austin 
R.  Montgomery 
R.  Billington 
J.  Sant ini 
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USER  EVALUATION  OF  REPORT 


Please  take  a  few  minutes  to  answer  the  questions  below;  tear  out 
this  sheet,  fold  as  indicated,  staple  or  tape  closed,  and  place 
in  the  mail.  Your  comments  will  provide  us  with  information  for 
improving  future  reports . 

1 .  BRL  Report  Number _ 

2.  Does  this  report  satisfy  a  need?  (Comment  on  purpose,  related 
project,  or  other  area  of  interest  for  which  report  will  be  used*) 


3.  How,  specifically,  is  the  report  being  used?  (Information 
source,  design  data  or  procedure,  management  procedure,  source  of 
ideas ,  etc . ) _ _ _ 


4.  Has  the  information  in  this  report  led  to  any  quantitative 
savings  as  far  as  man-hours/contract  dollars  saved,  operating  costs 
avoided,  efficiencies  achieved,  etc.?  If  so,  please  elaborate. 


5.  General  Comments  (Indicate  what  you  think  should  be  changed  to 
make  this  report  and  future  reports  of  this  type  more  responsive 
to  your  needs,  more  usable,  improve  readability,  etc.) _ 


6.  If  you  would  like  to  be  contacted  by  the  personnel  who  prepared 
this  report  to  raise  specific  questions  or  discuss  the  topic, 
please  fill  in  the  following  information. 

Name : 


Telephone  Number: 
Organization  Address: 


